home *** CD-ROM | disk | FTP | other *** search
/ SGI Freeware 1999 August / SGI Freeware 1999 August.iso / dist / fw_xemacs.idb / usr / freeware / lib / xemacs-20.4 / lisp / w3 / docomp.el.z / docomp.el
Encoding:
Text File  |  1998-05-21  |  2.5 KB  |  80 lines
  1. (setq load-path (append (list (expand-file-name "./")
  2.                   (or (getenv "WIDGETDIR")
  3.                   (expand-file-name "../widget"))
  4.                   )
  5.             load-path))
  6.  
  7. (setq max-specpdl-size (* 10 max-specpdl-size)
  8.       max-lisp-eval-depth (* 10 max-lisp-eval-depth))
  9.  
  10. (defun w3-declare-variables (&rest args)
  11.   (while args
  12.     (eval (list 'defvar (car args) nil ""))
  13.     (setq args (cdr args))))
  14.  
  15. ;; For Emacs 19
  16. (w3-declare-variables 'track-mouse 'menu-bar-help-menu 'menu-bar-mode
  17.               'global-face-data)
  18.  
  19. ;; For XEmacs/Lucid
  20. (w3-declare-variables 'current-menubar 'default-menubar 'extent
  21.               'mode-motion-hook 'mode-popup-menu 'sound-alist
  22.               'menubar-visible-p
  23.               'inhibit-help-echo 'default-toolbar
  24.               'bottom-toolbar-height 'top-toolbar-height
  25.               'toolbar-buttons-captioned-p
  26.               'right-toolbar-width 'left-toolbar-width
  27.               'top-toolbar 'bottom-toolbar 'right-toolbar
  28.               'left-toolbar 'device-fonts-cache
  29.               'has-modeline-p 'baud-rate)
  30.  
  31. ;; For MULE
  32. (w3-declare-variables '*noconv* '*autoconv* '*euc-japan* '*internal*
  33.               'w3-mime-list-for-code-conversion 'lc-ltn1
  34.               'mule-version 'enable-multibyte-characters
  35.               'mc-flag 'charset-latin-iso8859-1
  36.               'file-coding-system-for-read 'file-coding-system)
  37.  
  38. ;; For TM
  39. (w3-declare-variables 'mime/editor-mode-flag 'mime-tag-format)
  40.               
  41. ;; For NNTP
  42. (w3-declare-variables 'nntp-server-buffer 'nntp-server-process 'nntp/connection
  43.               'gnus-nntp-server 'nntp-server-name 'nntp-version
  44.               'gnus-default-nntp-server)
  45.  
  46. ;; For xpm-button
  47. (w3-declare-variables 'x-library-search-path)
  48.  
  49. ;; For emacspeak
  50. (w3-declare-variables 'dtk-voice-table 'dtk-punctuation-mode)
  51.  
  52. ;; For a few internal things
  53. (w3-declare-variables 'tag 'w3-working-buffer 'proxy-info 'args
  54.               'w3-image-widgets-waiting 'w3-form-info
  55.               'w3-last-parse-tree 'command-line-args-left
  56.               'standard-display-table 'w3-html-bookmarks
  57.               'browse-url-browser-function 'widget-keymap)
  58.  
  59. ;; GNUS
  60. (w3-declare-variables 'gnus-group-buffer 'gnus-version)              
  61.  
  62. (load "bytecomp" t t nil)
  63. ;; Emacs 19 byte compiler complains about too much stuff by default.
  64. ;; Turn off most of the warnings here.
  65. (setq byte-compile-warnings '(free-vars)
  66.       byte-optimize t)
  67.  
  68. (defun compile-it ()
  69.   (let ((files (directory-files "." t ".*.el$" nil t)))
  70.     (while files
  71.       (if (not (string-match "w3-sysdp.el$" (car files)))
  72.       (byte-compile-file (car files)))
  73.       (setq files (cdr files)))))
  74.  
  75. (require 'cl)
  76. (require 'w3-sysdp)
  77. (require 'w3-vars)
  78. (require 'url)
  79. (require 'mm)
  80.